﻿Imports System.Data.OleDb

Public Class CashBookDAO
    Public Function CashBook_Insert(ByVal Start_Date As Date, _
                                    ByVal End_Date As Date) As Double
        Dim para(2) As OleDbParameter

        para(0) = New OleDbParameter("@Start_Date", Start_Date)
        para(0).OleDbType = OleDbType.Date

        para(1) = New OleDbParameter("@End_Date", End_Date)
        para(1).OleDbType = OleDbType.Date

        para(2) = New OleDbParameter("@BalanceMoney", OleDbType.Double)
        para(2).Direction = ParameterDirection.Output

        objConnectionDAO.ExecuteStoreprocedureNoneReturn("spTDT_CashBook_Insert", para)
        Return para(2).Value
    End Function
End Class
